**For use with Fantasm and PowerFantasm V4 from Lightsoft.
nullEvent						EQU		0
mouseDown						EQU		1
mouseUp							EQU		2
keyDown							EQU		3
keyUp							EQU		4
autoKey							EQU		5
updateEvt						EQU		6
diskEvt							EQU		7
activateEvt						EQU		8
osEvt							EQU		15
; event mask equates 
mDownMask						EQU		$0002				; mouse button pressed 
mUpMask							EQU		$0004				; mouse button released 
keyDownMask						EQU		$0008				; key pressed 
keyUpMask						EQU		$0010				; key released 
autoKeyMask						EQU		$0020				; key repeatedly held down 
updateMask						EQU		$0040				; window needs updating 
diskMask						EQU		$0080				; disk inserted 
activMask						EQU		$0100				; activate/deactivate window 
highLevelEventMask				EQU		$0400				; high-level events (includes AppleEvents) 
osMask							EQU		$8000				; operating system events (suspend, resume) 
everyEvent						EQU		$FFFF				; all of the above 

; event message equates 
charCodeMask					EQU		$000000FF
keyCodeMask						EQU		$0000FF00
adbAddrMask						EQU		$00FF0000
osEvtMessageMask				EQU		$FF000000
; OS event messages.  Event (sub)code is in the high byte of the message field. 
mouseMovedMessage				EQU		$00FA
suspendResumeMessage			EQU		$0001
resumeFlag						EQU		1					; Bit 0 of message indicates resume vs suspend 
convertClipboardFlag			EQU		2					; Bit 1 in resume message indicates clipboard change 
; modifiers 
activeFlag						EQU		$0001				; Bit 0 of modifiers for activateEvt and mouseDown events 
btnState						EQU		$0080				; Bit 7 of low byte is mouse button state 
cmdKey							EQU		$0100				; Bit 0 of high byte 
shiftKey						EQU		$0200				; Bit 1 of high byte 
alphaLock						EQU		$0400				; Bit 2 of high byte 
optionKey						EQU		$0800				; Bit 3 of high byte 
controlKey						EQU		$1000				; Bit 4 of high byte 
; obsolete equates 
networkEvt						EQU		10
driverEvt						EQU		11
app1Evt							EQU		12
app2Evt							EQU		13

app3Evt							EQU		14
app4Evt							EQU		15
networkMask						EQU		$0400
driverMask						EQU		$0800
app1Mask						EQU		$1000
app2Mask						EQU		$2000
app3Mask						EQU		$4000
app4Mask						EQU		$8000


	if	PPC
		IMPORT	GetDblTime
		IMPORT	GetCaretTime
		IMPORT	SetEventMask
		IMPORT	GetEventQueue
		IMPORT	GetNextEvent
		IMPORT	WaitNextEvent
		IMPORT	EventAvail
		IMPORT	GetMouse
		IMPORT	Button
		IMPORT	StillDown
		IMPORT	WaitMouseUp
		IMPORT	GetKeys
		IMPORT	KeyTranslate
		IMPORT	TickCount
		IMPORT	PostEvent
		IMPORT	PPostEvent
		IMPORT	OSEventAvail
		IMPORT	GetOSEvent
		IMPORT	FlushEvents
		IMPORT	SystemClick
		IMPORT	SystemTask
		IMPORT	SystemEvent
	endif